home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm8 / 00695_bt chron.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  861 b   |  42 lines
  1. on MouseClick
  2.   global gNumSpr, gSurvolPrec, gBoutons
  3.   gBoutons(relache, gNumSpr)
  4.   set gSurvolPrec to -1
  5.   beep()
  6. end
  7.  
  8. on mouseDown
  9.   global gBoutons, gNumSpr, g1erSprChr
  10.   set gNumSpr to 0
  11.   repeat with i = g1erSprChr to g1erSprChr + 9
  12.     if rollOver(i) then
  13.       set gNumSpr to i
  14.       exit repeat
  15.     end if
  16.   end repeat
  17.   if (gNumSpr >= g1erSprChr) and (gNumSpr <= (g1erSprChr + 9)) then
  18.     if word 2 of the name of cast the castNum of sprite gNumSpr = "1" then
  19.       gBoutons(appuie, gNumSpr)
  20.     else
  21.       set gNumSpr to -2
  22.     end if
  23.   end if
  24. end
  25.  
  26. on mouseUp
  27.   global gBoutons, gNumSpr, g1erSprChr
  28.   curseur(1)
  29.   set monNumSpr to 0
  30.   repeat with i = g1erSprChr to g1erSprChr + 9
  31.     if rollOver(i) then
  32.       set monNumSpr to i
  33.       exit repeat
  34.     end if
  35.   end repeat
  36.   if gNumSpr = monNumSpr then
  37.     MouseClick()
  38.   else
  39.     pass()
  40.   end if
  41. end
  42.